home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9001a.d64 / quelltext 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  64 lines
  1. 100 :           SYS 36864
  2. 110 :           .OPT   OO
  3. 120 :           *=$0400
  4. 130 :;
  5. 140 :;*** AUSLESUNG DER REM-ZEILEN ***
  6. 150 :;
  7. 160 :           LDA #$FF
  8. 170 :           STA $5A
  9. 180 :           LDA #$BF
  10. 190 :           STA $5B
  11. 200 :           LDA $7A
  12. 210 :           STA $5F
  13. 220 :           LDA $7B
  14. 230 :           STA $60
  15. 240 NEXTLINE    LDA $5B
  16. 250 :           CMP #$C4
  17. 260 :           BCC READ
  18. 262 :           JMP $C000
  19. 275 :;
  20. 280 READ        LDA #7
  21. 290 R0          ADC $5F
  22. 310 :           STA $5F
  23. 320 :           BCC R1
  24. 330 :           INC $60
  25. 340 R1          LDY #8
  26. 350 :           LDA ($5F),Y
  27. 360 :           JSR DECODE
  28. 370 :           STA 2
  29. 400 :           DEY
  30. 410 R2          LDA ($5F),Y
  31. 412 :           BEQ NEXTLINE
  32. 415 :           JSR DECODE
  33. 417 :           ROL
  34. 420 :           LSR 2
  35. 430 :           ROR
  36. 460 :           STA ($5A),Y
  37. 470 :           DEY
  38. 475 :           BNE R2
  39. 480 :           CLC
  40. 490 :           LDA $5A
  41. 500 :           ADC #7
  42. 510 :           STA $5A
  43. 515 :           LDA #8
  44. 520 :           BCC R0
  45. 530 :           INC $5B
  46. 540 :           CLC
  47. 560 :           BCC R0
  48. 600 :;
  49. 610 DECODE      CMP #160
  50. 620 :           BCC DE1
  51. 625 :           SBC #64
  52. 630 :           RTS
  53. 635 DE1         CMP #96
  54. 640 :           BCC DE2
  55. 645 :           SBC #32
  56. 650 :           RTS
  57. 655 DE2         CMP #64
  58. 660 :           BCC DE3
  59. 665 :           SBC #64
  60. 670 DE3         CMP #53
  61. 675 :           BNE DE4
  62. 680 :           LDA #34
  63. 685 DE4         RTS
  64.